Especial Multimedia/Especial Multimedia.iso/Multimed/Prg/WAVPLUS.ZIP/DEMOMAIN.WD_/DEMOMAIN.WD

Text File | 1997-09-14 | 8KB | 268 lines

VERSION 2.00
Begin Form DemoMain
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "WavPlus Demo"
   ClientHeight    =   4395
   ClientLeft      =   810
   ClientTop       =   1980
   ClientWidth     =   8280
   ClipControls    =   0   'False
   FillStyle       =   0  'Solid
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "Mercurius Script MT Bold"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   ForeColor       =   &H00000000&
   Height          =   5085
   Icon            =   DEMOMAIN.FRX:0000
   KeyPreview      =   -1  'True
   Left            =   750
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4395
   ScaleWidth      =   8280
   Top             =   1350
   Width           =   8400
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "Label1"
      Height          =   2055
      Left            =   1680
      TabIndex        =   0
      Top             =   600
      Width           =   4935
   End
   Begin Menu mnuInfo
      Caption         =   "&Demos"
      Begin Menu mnuDemoCapabilities
         Caption         =   "Wav &Capabilities"
      End
      Begin Menu mnuDemoPlayer
         Caption         =   "&Wav Player"
      End
      Begin Menu mnuDemoPlayer2
         Caption         =   "Wav Player &2"
      End
      Begin Menu mnuDemoSegment
         Caption         =   "&Segment Demo"
      End
      Begin Menu mnuDemoMidi
         Caption         =   "&Midi Player"
      End
      Begin Menu mnuDemoCDPlayer
         Caption         =   "&CD Player"
      End
      Begin Menu mnuInfoSep1
         Caption         =   "-"
      End
      Begin Menu mnuExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuHelp
      Caption         =   "&Help"
      Begin Menu mnuHelpContents
         Caption         =   "DLL Help &Contents..."
      End
      Begin Menu mnuHelpSearch
         Caption         =   "DLL Help &Search..."
      End
      Begin Menu mnuHelpSep01
         Caption         =   "-"
      End
      Begin Menu mnuHelpAbout
         Caption         =   "&About..."
      End
      Begin Menu mnuHelpSep02
         Caption         =   "-"
      End
      Begin Menu mnuHelpCatalog
         Caption         =   "Catalog of &Products..."
      End
      Begin Menu mnuHelpRegistration
         Caption         =   "Online &Registration..."
      End
      Begin Menu mnuHelpOrder
         Caption         =   "&Order Form..."
      End
      Begin Menu mnuHelpEval
         Caption         =   "&Evaluation Form..."
      End
      Begin Menu mnuHelpSharewar
         Caption         =   "Shareware &Information"
      End
   End
End

Sub Form_KeyPress (KeyAscii As Integer)
    If KeyAscii = 27 Then
        KeyAscii = 0
        Unload Me
        End If
End Sub

Sub Form_Load ()
    X% = GetWavPlusVersion()
    FormCenterScreen Me

    initialize
    mnuHelp.Caption = Chr$(8) + "&Help"     'right justifies menu item

    msg$ = nl + "This small application demonstrates some" + nl
    msg$ = msg$ + "of the functions of WavPlus2.DLL and a few" + nl
    msg$ = msg$ + "VB tricks too.  Print and study the program" + nl
    msg$ = msg$ + "to fully understand how it all works" + nl
    msg$ = msg$ + "together.  Also, read the online Help file" + nl
    msg$ = msg$ + "WavPlus2.HLP to learn about the functions in" + nl
    msg$ = msg$ + " this version of WavPlus ... and about how to" + nl
    msg$ = msg$ + " register this shareware utility."
    Label1.Caption = msg$
End Sub

Sub Form_Paint ()
    DoForm3D Me, "raised", 2, 0
    DoForm3D Me, "sunken", 2, 2
    DoControl3D Label1, "raised", 4
End Sub

Sub mnuDemoCapabilities_Click ()
    Screen.MousePointer = 11
    Wdevice.Show 1
End Sub

Sub mnuDemoCDPlayer_Click ()
    If DisplayedCDplayer = True Then
        CDplayer.WindowState = 0
        Exit Sub
        End If
    Screen.MousePointer = 11
    CDplayer.Show
End Sub

Sub mnuDemoMidi_Click ()
    Screen.MousePointer = 11
    MidiPlay.Show 1
End Sub

Sub mnuDemoPlayer_Click ()
    Screen.MousePointer = 11
    WavPlay.Show 1
End Sub

Sub mnuDemoPlayer2_Click ()
    Screen.MousePointer = 11
    WavPlay2.Show 1
End Sub

Sub mnuDemoSegment_Click ()
    Screen.MousePointer = 11
    SegDemo.Show 1
End Sub

Sub mnuExit_Click ()
    End
End Sub

Sub mnuHelpAbout_Click ()
    Screen.MousePointer = 11
    About.Show 1
End Sub

Sub mnuHelpCatalog_Click ()
        On Error Resume Next
        WinPath$ = GetWinDir()
        WinPath$ = BackSlashAdd(WinPath$) + "WRITE.EXE"
        DocPath$ = app.Path
        If InStr(DocPath$, "\VB\DPTOOLS") Then
            DocPath$ = Left$(DocPath$, 2) + "\VB\DPTOOLS"
            End If
        DocPath$ = BackSlashAdd(DocPath$) + "DPCT0395.WRI"
        FullPath$ = WinPath$ + " " + DocPath$
        Screen.MousePointer = 11
        X = Shell(FullPath$, 3)
        Screen.MousePointer = 0
End Sub

Sub mnuHelpContents_Click ()
    On Error Resume Next
    MyHelpFile$ = app.Path
    MyHelpFile$ = BackSlashAdd(MyHelpFile$) + "WAVPLUS2.HLP"
    Screen.MousePointer = 11
    ret% = WinHelp(Me.hWnd, MyHelpFile$, HELP_CONTENTS, 0&)
    Screen.MousePointer = 0
End Sub

Sub mnuHelpEval_Click ()
        On Error Resume Next
        WinPath$ = GetWinDir()
        WinPath$ = BackSlashAdd(WinPath$) + "WRITE.EXE"
        DocPath$ = app.Path
        If InStr(DocPath$, "\VB\DPTOOLS") Then
            DocPath$ = Left$(DocPath$, 2) + "\VB\DPTOOLS"
            End If
        DocPath$ = BackSlashAdd(DocPath$) + "EVALFRM.WRI"
        FullPath$ = WinPath$ + " " + DocPath$
        Screen.MousePointer = 11
        X = Shell(FullPath$, 3)
        Screen.MousePointer = 0
End Sub

Sub mnuHelpOrder_Click ()
        On Error Resume Next
        WinPath$ = GetWinDir()
        WinPath$ = BackSlashAdd(WinPath$) + "WRITE.EXE"
        DocPath$ = app.Path
        If InStr(DocPath$, "\VB\DPTOOLS") Then
            DocPath$ = Left$(DocPath$, 2) + "\VB\DPTOOLS"
            End If
        DocPath$ = BackSlashAdd(DocPath$) + "ORDERFRM.WRI"
        FullPath$ = WinPath$ + " " + DocPath$
        Screen.MousePointer = 11
        X = Shell(FullPath$, 3)
        Screen.MousePointer = 0
End Sub

Sub mnuHelpRegistration_Click ()
        On Error Resume Next
        WinPath$ = GetWinDir()
        WinPath$ = BackSlashAdd(WinPath$) + "WRITE.EXE"
        DocPath$ = app.Path
        If InStr(DocPath$, "\VB\DPTOOLS") Then
            DocPath$ = Left$(DocPath$, 2) + "\VB\DPTOOLS"
            End If
        DocPath$ = BackSlashAdd(DocPath$) + "OnlineRg.WRI"
        FullPath$ = WinPath$ + " " + DocPath$
        Screen.MousePointer = 11
        X = Shell(FullPath$, 3)
        Screen.MousePointer = 0
End Sub

Sub mnuHelpSearch_Click ()
    On Error Resume Next
    MyHelpFile$ = app.Path
    MyHelpFile$ = BackSlashAdd(MyHelpFile$) + "WAVPLUS2.HLP"
    Screen.MousePointer = 11
    ret% = WinHelp(Me.hWnd, MyHelpFile$, HELP_PARTIALKEY, "")
    Screen.MousePointer = 0
End Sub

Sub mnuHelpSharewar_Click ()
        On Error Resume Next
        WinPath$ = GetWinDir()
        WinPath$ = BackSlashAdd(WinPath$) + "WRITE.EXE"
        DocPath$ = app.Path
        If InStr(DocPath$, "\VB\DPTOOLS") Then
            DocPath$ = Left$(DocPath$, 2) + "\VB\DPTOOLS"
            End If
        DocPath$ = BackSlashAdd(DocPath$) + "SHARWARE.WRI"
        FullPath$ = WinPath$ + " " + DocPath$
        Screen.MousePointer = 11
        X = Shell(FullPath$, 3)
        Screen.MousePointer = 0
End Sub